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Algorithm 0.0.2: Update AVAIL RXR LlSTsiGlobal,Node,Token) 

if rxrJists are empty 
tlien return 

if Node is on a lightpath 
then note source and sink 

for each rec e Node.addJbcLck-rxrJist 
'increment recadj 

increment ToA:en[rec.5m/:].AVAlL_RXRS 
if Token[rec,sink],NVMJFAiLS > 0 

then decrement Token[rec.sink],NVU^FAiLS 
if recado — 0 
then delete rec 



[block 0] 
[block 1) 
[block 2] 



do < 



for each reci € Node.takejawayjrxrdist [block 3] 

'decrement reci.arf; 

decrement ToA:en[reci. 5tnA:],AVAiL-RXRS 

if (rofcen[reci.smA;].AVAiL_RXRS + ToAen[reci.sin/:].NUMJ*^ < 0** 
'increment rofcen[reci.5mA;].NUM_FAiLS 

if sink noted and reci.sink = sink and Tok€n[reci.sink]AjWK = SINK* 
then if no active txn to sink 

{comment: TANDEM 
Node.onjofS[X^^ ON 
else if Token{sink].hWKJ}KG > urgency of least urgent active txn 
conunent: STOMP 



then 



do < 



then < 



then lNode.onjjff[\i]ir- ON 

discontinue own least urgent active txn 
invoke FaUedjrxuQ 
TOnunent: SIPHON 

else i lightpath from sink upstream 
Node.on.off[Xi] OFF 
Token[source],TX^AiL sink 

if reci.adj = 0 

new rec2 <- {reci.sink^—{Global.numJtokens)) 
then < add rec2 to Node.addJbadcjrxrJist 
delete reci 



•if the sum of the avail_rxrs and num jails token fields for reci.sink becomes negative 
^if reci.sink is the sink of a lightpath that was noted near the top of the algorithm ... 
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do < 



Algorithm 0.0.3: RESERVE LINKS PROCEDURE(ToA;en, Path) 

• create priority queue of destination candidates, sorted on primary key (most urgent), 

and secondary key (greatest hop-length) 

while (1) 

if queue empty 
then return 
pop candidate 

if every rsv.urg of patli to candidate has lower urgency than candidate burst 
then drop through WHILE loop 
for each link on Path 

note "losing" reservation ID, if any 
write "my'' ID and MAXDEST urgency number 
for each losing ID 

reset all reservations which are contiguous to new reservation link 
and which have losing IDs (dear away "orphaned" IDs) 



do 



do 
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Algorithm 0.0-1: Find PATH{Global, Node.Token) 



do i 



if a TXR is available 

find max (the free link farthest downstream on active ring) 
destJist <~ all dests (with bursts waiting) incl. max* 

sort destJist, by primary key (most urgent) [3110] 
and secondary key (farthest) 

while (1) 

r 

if destJist is empty 
then return 

desti-ipop destJist 

if (V intermediate link, {desturg > link.BSV^UKG) [3118] 
and "grayed-out" links can be bypassed) [3120] 
then break^ 

if "grayed-out" links on path [3130] 
I Tok€n.RI largest available bypass ring (RI) 
I if new RI changes the route at thisnode, set switch 
decrement Tofcen[dc5t],AVAlL-RXRS 
arrec {dest, Global. numdokens - 1) 
add arrec to Node.takejawayjrxrsJist 
markjpath(dest, desturg ) 



then < 



then 



•Recall that node information appears on the token in the same record with its upstream link. 

*The break statement is unconditional, except in reservation scheme (first condition) and MESH (second 



condition). 
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